home *** CD-ROM | disk | FTP | other *** search
/ Mac Expert 2 / Mac_Expert_2.iso / Applications / T-Script v3.0 / BubbleJet / BubbleJet.rsrc / POST_270 < prev    next >
Encoding:
Text File  |  1992-01-07  |  1.2 KB  |  42 lines
  1. %!PS-TTS-1.0
  2. % Canon BJ printer setup
  3.  
  4. statusdict /devicedict get begin
  5.  
  6. /Canon-BJ {
  7.   false true false false setframetype
  8.   57600 deviceresolutiony 2 mul 15 idiv settilesize
  9.   /freq deviceresolutionx dup 180 le {4 idiv} {5 idiv} ifelse def 
  10.   freq 45 /circlespot load setscreen
  11.   {} settransfer
  12.  
  13.   userdict /letter {statusdict begin 0 setdevicepaper 576 777 setdevicepage end} put
  14.   userdict /lettersmall {statusdict begin 1 setdevicepaper 553 732 setdevicepage end} put
  15.   userdict /tabloid {statusdict begin 2 setdevicepaper 762 1188 setdevicepage end} put
  16.  
  17.   /showproc {
  18.     statusdict begin
  19.     /jobstate (printing to Canon Bubble Jet) def
  20.     #copies {
  21.         devicefile dup <0D 1B5B5C 0400 0000 6801 1B33 30> writestring flushfile
  22.         devicefile opendevicepage
  23.         renderproc
  24.         devicefile closedevicepage
  25.         devicefile dup <0C> writestring flushfile
  26.         } repeat
  27.     /jobstate (busy) def
  28.     end
  29.   } def
  30.  
  31.   /setdevicepage {
  32.     devicescaley mul cvi /imageheight exch def
  33.     devicescalex mul cvi /imagewidth exch def
  34.     [devicescalex 0 0 devicescaley neg
  35.      imagewidth devicepaperwidth sub 2 div
  36.      imageheight devicepaperheight add 2 div] installdevice
  37.   } def
  38. } bind def
  39.  
  40. end
  41.  
  42.